#Mean entropy dim chooser
setClass("MeanEntropyDimChooser",contains="EntropyDimChooser",
		prototype=prototype(
				.description="Mean Entrpy DimChooser"
		)
)

#methods
setMethod("chooseBest",
		signature=c("MeanEntropyDimChooser","EntropySelectionReducer"),
		definition= function(.Object,reducer,...){
			entropyMean <- mean(as.matrix(reducer@.tmpWeights))
			return( length( which(reducer@.tmpWeights > entropyMean) ) )
		}
)

